EnigmA Amiga Run 1997 May/EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso/programs/write/module/folds.module

Text File | 1996-09-18 | 348b | 29 lines

MODULE Folds;

VAR
  level : NUMBER;

MENU $menu1;

ITEM $item1_1 "alt f"
  Fold([%MARKA,%MARKA],[%MARKB,%MARKB])
END;

ITEM $item1_2 "alt u"
  UnFold(_cursor,_cursor,1)
END;

ITEM $item1_3 "alt shift f"
  ReFold
END;

ITEMBAR;

ITEM $item1_4 ""
  IF GetNumber($text1,1,level) THEN
    UnFold([%SOT,%SOT],[%EOT,%EOT],level)
  END;
END;

END Folds.